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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL ae ot CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED 


"A MCEORD I$ Pyan see UNDER A LICENSE AND MAY BE USED AND COPIED 
ae WITH : THE TERMS OF SUCH obtcaae AND WITH THE 


TWARE ANY OTH 
NEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
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SOOoOOCOCOOOOCOOCOSOOOOSOSOOOOSOOoOOoOO 


OOoOoOoCoooooooooooooo 


(RRRARRAAAAAALALALAAL ALES EARS REAR ESSERE ESE RARER RARE EERE E RRR R RARER ARSE ESS 


++ 

ABSTRACT: The UETMEMYO1 module does an EXPAND REGION to the size of the 
maximum working set size. It then touches the pages within 
that region randomly by writing to them (PAGE FAULT) for a 
set time period. 
The latent is to use, (or misuse), the virtual aenery 
management facility very inefficiently in order to simulate 

a heavy user environment. The program is intended to be one 

pert of a test package aimed at using up system resources. 


ENVIRONMENT: User mode only. 
No particular privileges are required by the module. 


; AUTHOR: Fred Matthes CREATION DATE: December, 1981 
; MODIFIED BY: 
v03-001 RNHOOO1 Richard N. Holstein, 26-Jun-1984 


Take advantage of new UETP error message codes. 
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00000000 ih 
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esbttl Include 
INCLUDE FILES: 


SYSSLIBRARY:LIB. 
: SHRLIBS:UETP. MLB 


-sbttl Macros 
: MACROS: 


ef 
"sbttl Equates 
: Equated symbols 


Rms_k = 
UETP = 
UETP$_ABENDD = 
UETP$_BEGIND = 
UETPS$_ENDEDD = 
UETPS_TEXT = 
TEXT_BUFFER = 
esbttl Declarat 
: ; pecleretitens 
fvo_MIN: Long 
TIME_FLAG byte 
SEED: Long 
VAS_PAGCNT: Lon 
BEGSEND_ADD qua 
GTLIST: word 
word 
Long 
Long 
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Files 
MLB for general definitions 
for UETP definitions 


1 
UETPS HASLABENDD FAC 
UETP! SHAS DD 


y TP! SHRS$_ TEXT 


ions 


einai cana 
“X71269417 
512 


PI$ EXTENT 


jp 
i" S_PAG 


Condition handler frame definitions 
Shared messages definition 
Job process 
UETP definitions 
Status return definitions 


s 
nformation definitions 


NO ; define UETP facility code 
; Define the UETP message codes 


; buffer size 


120 seconds 


# pages we grab each time 
for ret beg/end address 


; max working set size 


end of List 
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-sbttl ASCII string definitions 
65 6C 69 66 00000031'010E0000" @ FILE: eASCID LCT ° ; Fills im RMS_ERR_STRING 
64 72 6F 63 65 72 0000003D'010E0000' i Powe, -ASCID /record/ ; Fills in RMS_ERR_STRING 
4 139 RMS_ERR_STRING: Announces an RMS error 
4) 21 20 § $2 9000004 215809 ' 004 “ASCID. /RMS !AS error in file !AD/ 
66 20 6E 6 2) 
4 41 2 6C 6 D 
64 =O § FAO_BUF : ; FAO output string descriptor 
090 poet 64 1 ~ WORD TEXT _BUFFER,O 
0000074' . | : -ADDRESS BUFFER 
.4.9 $ BUFFER_PTR: ; Fake .ASCID buffer for misc. strings 
0000 0084 ‘ 1 »WORD TEXT_BUFFER,O : A word for length, a word for desc. 
00000074' ore 138 [ADDRESS BUFFER 
000000F 8 th 119 BUFFER: .BLKB TEXT_BUFFER ; FAO output and other misc. buffer 
00000000 3 ig STATUS: .LONG 0 ; Status value on program exit 
OFC 114 MSG_BLOCK: ; Auxiliary SGETMSG info 
00000100 OOFC 115 -BLKB 4 
100 118 ARG_COUNT: ; Argument counter used by ERROR_EXIT 
00000000 0100 11 NG 0 
104 13 ERROR_ COUNT: ; Cumulative error count at runtime 
00000000 0104 11 . LON 0 
318 139 PROCESS _NAME : ; Process name 
4D 45 4D 54 45 55 aoceerie"gi¢ $090" gi92 121 -ASCID /UETMEMYO1/ 
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¥54-000 Main Program aes 8e: 6:14 UETPSY. SAEIUEYREMYO1 MAR; 1 ° (4) 
11 123 -sbttl Main orog am 
0000 011 124 sentry UETMEMYOT,“*M<> i entry mask 
6D O1DI'CF ODE Q11 125 moval SSERROR, (FP) ; Declare exception handler 
1 1 § SSETSFM_S grey = # ; Enable system service failure mode 
1 1 SGETJPI_S itmlst = GTLIST ; get # of pages 
sp Brady SEXPREG_S pagcnt = VAS _PAGCNT,-=- ; expand our region 
136 1 retadr = BE GSEND_ADB ,~ 
1 ; 1 region = # 
FEBC CF C3 QI 131 subl3 BEGSEND ADD, = ; fig # bytes actually cot 
FEBD ! : ' § BEGSEND_ADD+4,- 
p 1 134 incl ; <last-first> + 1 
55 53 F7 8F 1 135 ashl #-9,,R3,R5 ; (div by 512) Loop count 
53 FEAD CE DO 0160 136 mov BEGEENG _ADD.R2 : address 
53 none * Sa Ba 16 1 mov i R ; longwords per page 
4 55 4& 016C 1 : cvtlf R5,R4 ; page offset into VAS 
FE9S CF 94 if 1 clrb TIME_FLAG ; clear time signal flag 
1 ; 140 SSETIMR_S daytim = TWO_MIN,- 3 start the clock ticking 
173141 astadr = SET~TIMOUT_FLAG 
186 148 OUTER_LOOP: 
57 D4 : : We Loop irl R7 
FE7D CF ODF Q1 145 pushal SEED ; plant seed 
00000000 ' GF 1 re 18¢ 198 call #1,G*MTHSRANDOM 3 get random number 
56 4 & 19 14 mul f R4,RO,R6 3 to .999 x PAGES 
56 26 4A 0197 148 cvtfl R6,R6 3 fixed point 
56 C4 O19A 149 mull R3,R6 ; byte offset into VAS 
$258 ~~. 2 19D 150 mov R7, (R2)CR6) ; touch the page (FAULT IT) 
7. 2s) e 1A1 151 aoblss R5,R7,LO0P 
DC FESF CF E 1A5 13 blbc TIME_FLAG, OUTER LOOP 3 om time left? 
QIAA 15 SDELTVA_S inadr = BEGSEND_ADD ; release all expanded pages 
50 00000000'8F DO 0189 154 mov #SS$_NORMAL ,RO . 
\t8 13? SEXIT_S RO ; see Y'all 
1¢9 139 -sbttl AST Handler 
sone 1¢9 138 SET_TIMOUT FLAG: ; AST handler 
.wor 
FE38 CF 01 88 att 160 bisb #1, TIME_FLAG 
04 01D 161 RET 
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19] } ; : -SBTTL System Service Exception Handler 
1D] 165 : FUNCTIONAL DESCRIPTION: 
101 1 § 3 This routine is executed if a software or hardware exception occurs or 
101 167 ; if a LIBSSIGNAL systen service is used to output a message. 
101 198 3 Information about this method of handling messages and errors can be 
101 18 3 found in the VMS COMMON RUN-TIME manual and in the VMS SYSTEM SERVICE 
13 119 : manual. 
1D1 1% : CALLING SEQUENCE: 
11 \t? ; Entered via an exception from the system 
1D1 175 : INPUT PARAMETERS: 
13 178 ; ERROR_COUNT = previous cumulative error count 
SE ERY Oe Rademaneitce) SSK Sear 
bit 180 : | SIGNL ARY PNT } 
0101 18¢ F i MECH ARY PNT ! 
0101 §=183 ; { eoeeeecocerccce , seeeccece 
ge eidccost Naa 
o1Dt 186 ; | ESTABLISH FP | 
01D1 188; is DEPTH i Mechanism Array 
01D1 189 ; wonneeen------- 
01D1 190 ; ' RO } : 
01D1 «(191:; i nannnennnnnan=- i 
Bip} 135 : ! R1 ! v 
1D1 193; i nnnnnnnnn= e----) --------- 
CHE SE SE RS 
O11 196 ; | CONDITION NAME! 
01D1 198: i N-3 ADDITIONAL! Signal Array 
HF 1% ; LONG WORD ARGS : 
He Hae re 
101 08 ; : PSL v 
1D1 68 > IMPLICIT INPUTS: 
1 lan 
1D1 8 t OUTPUT PARAMETERS: 
Hf eth 
1D1 211 : IMPLICIT OUTPUTS: 
Pan 
1D] 214 : COMPLETION CODES: 
10} + 3 NONE 
1D1 13 > SIDE EFFECTS: 
101 8 3 NONE 
101 19 322 
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101 
101 ° SSERROR: 
OFFC 1D} § «WORD “M<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> ; Entry mask 
1D 4 SSETSFM E piers s : 3 ; Disable SS failure mode for PUTMSG 
1D 5 SSETAST_S ENB ; ASTs can play havoc with cond handler 
56 O4A DO OIE § oat “CHF STGanGist cap) af ¢? get the signal array pointer 
Oc 10 €D OIE CMPZV S138 VF STS$§ F - ; Is this a message from LIBSSIGNAL? 
00000074 8F 04 As 1E 8 CHESL “sie CaAME (RO) AOET PSNPACI ITY 
ig 1F BNEQ gs ; BR if this is a ir exception 
66 e 6 6¢ 1F SUBL2 #2,CHFSL_SIG_ARGS(R6) . drop the PC and 
1F SPUTMSG_S MSGVEC-= CAFSL_SIG_ ARGS ( (R6) = Print the message 
0 SSETSFM"S ENBFLG = #1 : Enable ss fa lure mode 
19 SSETAST_S ENBFLG = #1 ; Enable A 
04 i : 108 RET ; Return to y = program 
oc 1 ED 1A § CMPZV rb AL age FAC_NO,#STS$S_FAC_NO,- ; Is it an RMS failure? 
01 08 A6 1D L_SIG_ARG{(R6) , #RMS R 
12 3 8 BNEQ ; BR if not 
9 SSG TAST _S ENBFLG = #1 : Enable ASTs 
04 ? rt 208 RET : Yes, RMS ERROR gets to handle them 
FEC6 CF 04 A6 D0 § tg MOVL CHFSL_SIG_NAME(R6), STATUS Save the status 
58 D4 4 CLR ; heoune for now it's not SS failure 
FEBB CF re a D1 0234 44 CMPL #SS$_SSFAIL,STATUS : : But is it a System Service failure? 
12 023d 45 BNEQ . BR s not - no special case message 
023F $8 SGETMSG_S Ay = crea SIG arciire), - ; Get SS failure code associated text 
8s F 4 MSGLEN = BUFFER _PTR,- 
F 48 BUFADR = FAO BUF. 
F 49 FLAGS = #14,- 
F 250 OUTADR = MSG.BLOCK 
FEA2 CF 9 7 51 TSTB MSG_BLOCK+1 3; Get FAO arg count for SS failure code 
| ae 58 26 BEQL ; Don't use SGETMSG if no $FAO args... 
FEOB CF OF 5D 5 PUSHAL ByFFER. PTR 3; .--else build up.. 
01 dD 8 ¢ 54 PUSHL #1 3 «+.@ message describing... 
00741130 8F ODD 6 55 PUSHL aro TEXT : eicthy the System Service failed 
08 A6-~ FO 69 2$ INSV curs ro S16 gAhEl (ne) .= : he message... 
0 6C 5 Q_SEVERITY,- i ...the correct sceverite code 
ef 0 60 58 Ay SEVER ty. (SP) 
5 0 dO of 59 MOVL ; Count the number of args we pushed 
06 «171 fe ¢ 30s ARB 
08 A6 DD § 74 6¢ PUSHL ab Sa tah ; Save SS failure code 
58 01 00 or o7 408 MOVL #1,R ; Count the number of args we pushed 
57 4 C5 7A 65 MULL #4, CHFSL_SIG_ARGS(R6),R7 ; Convert Longwords to bytes 
E 7 5 7E 96 SUBL “Save the current signal array... 
6E 0406 57 to. MOVC3 7. CHFSL_SIG_NAME(R6), (Sh); c..on the stack 
7E 66 4 ¢ 6 08 ADDL R8. CHFSL ne ~ARGS(R6),-(SP) ; Push the current arg count 
00 1 A 6 BRwW ERROR_ ; Exit in error 
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re as -SBTTL RMS Error Handler 
D ; FUNCTIONAL DESCRIPTION: 
4 oe : This routine handles error returns from RMS calls. 
D id: : CALLING SEQUENCE: 
4 f 3 Called by RMS when a file processing error is found. 
D § : INPUT PARAMETERS: 
4 3 NONE 
D ; > IMPLICIT INPUTS: 
4 ? 3 The FAB or RAB associated with the RMS call. 
D 5 : OUTPUT PARAMETERS: 
: § ; NONE 
D 8 : IMPLICIT OUTPUTS: 
8 gp + : Error message 
0 8p 91 : COMPLETION CODES: 
8 4 35 § NONE 
028) 294 : SIDE EFFECTS: 
0 4 32 ; Program may exit, depending on severity of the error. 
BB i i 
0 8p 99 RMS_ERROR: 
OFFC 0 4 By ~WORD “M<CR2,R3,R4,R5,R6,R7,R8,R9,RI0,R11> ; Entry mask 
56 04 AC 00 6 Hi 8 MOVL 4(AP) ,R6 ; See whether we're dealing with... 
0000'C6 O00°8F 91 0293 30 CMPB = #FABSC_BID,FABSB_BID(R6) ; ...a FAB or a RAB 
19 12 99 04 BNEQ 10$ ; BR if it's a RAB 
57 DBA gf D 05 MOVAL FILE,R7 3; FAB-specific code: text string... 
58 6 DO O2A 06 MOVL R6 ; ...address of FAB... 
0000'C6 DD O2A 07 PUSHL FABSL_STV(R6) : ...STV field for error... 
0000'C6 ODD A 8 PUSHL FABSL_STS(R6) ; «STS field for error... 
FE46 CF 0000'C6' OD aS 09 MOVL FABSL_ STS(R6),STATUS 3 ...and save the error code 
19 1 BF 19 ‘2. BRB COMMON ; FAB and RAB share other code 
57 FO7D CF OD B4 \§ ¢ MOVAL RECORD,R7 ; RAB-specific code: text string... 
58 0000'C6 OD B9 1 MOVL RABSL _f AB(R6) .RB ; ..-address of associated FAB... 
53 DD B 14 PUSHL prt ne ees t ; «.-STV field for error... 
*C DD C 15 PUSHL RABSL_STS(R6) ; «STS field for error... 
FE2B CF 000'C6 »d0 +. 18 auities MOVL RABSL_STS(R6) , STATUS 3 ...and save the error code 
5A 0000'C8 9A O02CD 18 " MOVZBL FABSB_FNS(RB),R10 : Get the file name size 
D 1 SFAO_S CTRSTR = RMS ERR STRING,- ; Common code, prepare error message... 
1) 0 OUTLEN = BUFFER_PTR,- 
D 1 OUTBUF = FAO_BUF,- 
D § P1 = R7,= 
D Pg = R16,- 
D 4 P = FABSL_FNA(R8) 
FD7B o 4 Ep 5 Se rage BUFFER PTR 3; «..and arguments for ERROR_EXIT... 
00741130 8F DD Fy S PUSHL #UETPS_TEXT Pee 


Sm 
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g3 FF SEE rte #3 1388-SEVERITY, = 
59 FDF9 gf F STATUS TR ! i ++sget the severity code. 
6— 59 88 1 BISB2 R9, (SPS ; ...and add it into the signal name 
dD PUSHL #5 ; Current arg count 
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+ .sbttl Error Exit 


+ FUNCTIONAL DESCRIPTION: 
This routine prints an error message and exits. 


; j CALLING, peeuences 
Vx error status gg Cals» 
Bustin error specific information on the stack 
PUSHL current argument count 
BRW ERROR_EXIT 


; INPUT PARAMETERS: 
; Arguments to LIBSSIGNAL, as above 


; IMPLICIT INPUTS: 
NONE 


; OUTPUT PARAMETERS: 
; Message to SYSSOUTPUT and SYSSERROR 


; IMPLICIT OUTPUTS: 
; Program exit 
; COMPLETION CODES: 
; NONE 

; SIDE EFFECTS: 

; NONE 
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ERROR_EXIT: 
SSETAST -§ A iy FLG = #0 ; ASTs can play havoc with messages 
FDEC CF 08 ADOL3 “ie ARG. COUNT ; Get total # args, pop partial count 
FDEC fr D6 INCL ERR ROR. ; Kee running error count 
0 oD PUSHL #0 ; Push the time parameter 
FDEA CF OF 7 PUSHAL omer ; NAME : Push test name... 
OOO bes F DD 7 PU. HL ++-arg count... 
007410E2 8F DD 7 PUSHL HUETPS ABENDD ! STSSK _ERROR -; .and signal name 
FDD6 CF DD 7 PUSHL ERROR COUNT ; finish oft arg list... 
FDD6 CF DF 7 PUSHAL atts NAME botee 
000) 39 r DD 7 PUSHL #*x10002 
07480 DD 7? PUSHL #UETPS ERBOXPROC!STSSK _ERROR’ “gs for error box message 
00000000 ' GF FDBE cf FB 4 CALLS ARG_COONT,G*LIBSSIGNAL” ; truly’6 tch 
FDA8 CF 10000000 8F C8 BISL #STSSM_INHIB_MSG,STATUS ; Don't print messages twice! 
SEXIT_S S$ : Exit in error 
.end UETMEMYO1 
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$$T1 


sist WSEXTENT 
BSSIGNA 


MSG BLOCK 
MTHSRANDOM 


RMS_ERROR 
RMS “ERR. STRING 
RMS ~K 


SEED 
SET Tumour FLAG 
SHRS_ABENDD 
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O0O00000F C 
teereeee 
0000018 
0000010 


geeerenre 
Reeeeeee 
Reeeeeee 


reeecreee 
reeterere 


a 
a 


0 


geerreee 
gererenre 
geerenee 
geenrteee 
rererene 


9:44 


I9° ahs 9 90:92 


ce 


<CcCccccccc 44-419 


oOo SOOOOSCOSCOSOSOOO COOOOOOOOOOOO 


za DDD 
oooo 
—— a es ot 


—t 3 se 


ae eh 


reererese 
geeeeere 
geenrenree 
rereeene 
RRRRAAAE 


ARCs Macro V04é- 
14 UETPSY.SRCJUETMEMYO1.MAR; 1 


6 9 
UETMEMYO1 PAGING LOAD "9-3 o- 1382 90:82 9:44 VAX/VMS Me cro 
Psect synopsis =SEP=-1 TPSY.S 


Geen we eeeeeeceoees$ 


! Psect synopsis ! 


terre ern eee eee enn d 


PSECT name Allocation PSECT No. Attributes 

os OS 8 90 ( 8} 0.) NOPIC “USR CON ABS LCL 

» BLANK , ( 859.) ° -) NOPIC USR CON REL LCL N 

SABSS 0 00 ¢ 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE AD 


Se ee 


! Performance indicators ; 


dm ocam moans emreenrow cae eeeceoe 


Phase Page faults CPU Time Elapsed Time 
Initializati :00:00. :00:00.53 
Conaand processing 139 8; tf 5-99 00:00:0 -76 
214 0:00:04.84 3: 71 “et 
Synbol table sort 3 :00: 9-3) :00:00. 
Symbol table output 1 : 8; 0. 09: 0: ; 
Psect synopsis output 00:00. 0:00:00. 
Cross-reference output :00: a. 00: 8798-8 
Assembler run totals 49 00:00:07.34 00:00:22.21 


The_working tt) Limit was 1350 pages. 
24038 areas (47 pages) of virtual memory were used to buffer _the intermediate code. 
There were 20 pages of symbol table space allocated to hold 337 non-local and 5 local symbols. 
82 source tinge were read in Pass 1, producing 16 object records in Pass 2. 
6 pages of virtual memory were used to define 24 macros. 


Macro Library name Macros defined 
$255SDUA pent ee Te -MLB;1 1 
$255$DUA stay B;1 0 
$588$DUA HeYSt IG STARLET. Oale: 2 $9 

whack (all Libraries) 1 


468 GETS were required to define 21 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:UETMEMYO1/0BJ=OBJ$:UETMEMYO1 MSRC$:UETMEMYO1/UPDATE=(ENHS$:UETMEMY0O1) +EXECML$/LIB+SHRLIBS$:UETP/LIB 


ni 
:14 (UE S RCI UETMEMYO1.MAR; 1 
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